argss <- commandArgs(trailingOnly = TRUE)

print(argss)

fqs_name <- argss[1]
name <- argss[2]

fill=paste(name, 'pdf', sep='.')

fqs=read.table(fqs_name, header=T)


pdf(fill, width=9, height=6)
par(ann=F, xaxs='i', yaxs='i')

source(paste(Sys.getenv('tools_path'), 'script/fqs_p.r', sep='/'))
fqs_p(fqs, name)

dev.off()

q(save='yes')
